home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 12
/
012.d81
/
dosplus creator
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
3KB
|
68 lines
1 ifdis=0thendis=1:gosub60000
5 rem ******* dosplus creator *******
10 rem extra spaces added for clarity
20 if rwk then gosub 200:goto 70
30 poke 53280,6:print chr$(147):rw=34
40 print tab(2)"put the test/demo disk in the drive":gosub 180
50 print tab(82)"the old dos 5.1 is now loading....."
60 load"dos 5.1",8,1
70 print tab(82)"new dosplus data is now loading...."
80 for i=52000 to 52223:read a:poke i,a:ck=ck+a:next
90 for j=52278 to 52443:read b:poke j,b:ck=ck+b:next
100 for k=53080 to 53247:read c:poke k,c:ck=ck+c:next
110 poke 52570,32:poke 52571,106
120 if ck <> 58416 then print tab(87)"error in data statements":stop
130 gosub 200:print tab(82)"put disk to receive dosplus in drive":gosub 180
140 print tab(82)"now saving dosplus to disk.........."
150 poke 43,32:poke 44,203:poke 45,255:poke 46,207:save"dosplus",8,1
160 poke 43,1:poke 44,8:poke 45,3:poke 46,8:gosub 200
170 print tab(56)"done":for i=1 to 3000:next:print chr$(147):sys 52224:new
180 print tab(43) chr$(18) chr$(159)" press f3 when ready to continue "
190 get k$:if k$ <> chr$(134) then 190
200 print chr$(150):for i=1 to 20:print"* ";:next:print chr$(154);:return
500 data 201,42,240,4,76,82,204,52,32,204,255,169,8,170,160,15,32
505 data 186,255,169,2,162,123,160,203,32,189,255,32,192,255,160,16,162
510 data 251,32,179,238,232,208,250,200,208,245,162,8,32,198,255,160,3
515 data 32,207,255,136,208,250,169,13,32,210,255,32,207,255,201,44,240
520 data 6,32,210,255,76,94,203,169,20,32,210,255,169,8,32,195,255
525 data 32,204,255,76,228,207,85,74,187,187,187,169,139,160,203,141,10
530 data 3,140,11,3,96,169,0,133,13,32,115,0,201,36,240,10,201
535 data 37,240,65,32,121,0,76,141,174,32,209,203,32,115,0,144,11
540 data 201,65,144,31,201,71,176,27,56,233,7,56,233,48,72,165,97
545 data 240,7,24,105,4,176,14,133,97,104,240,222,32,126,189,76,163
550 data 203,76,121,0,76,126,185,169,0,162,10,149,93,202,16,251,96
555 data 32,209,203,32,115,0,201,50,176,230,201,48,144,226,233,48,72
560 data 165,97,240,4,230,97,240,218,104,240,231,32,126,189,76,222,203
565 data 0,187,187,52,52,52,52,52,52,52,52,52,52,52,52,52,52,52,52,52
570 data 52,52,52,52,52,52,52,52,52,52,52,173,39,204,201,75,240
575 data 1,96,169,100,160,204,32,30,171,76,116,164,75,79,66,69,82,0
580 data 173,39,204,201,85,240,3,76,32,203,76,173,207,8,187,79,94
585 data 13,13,32,32,32,32,32,32,68,79,83,32,77,65,78,65,71
590 data 69,82,32,86,54,46,53,45,49,47,49,47,56,53,13,13,32
595 data 32,32,32,32,32,32,32,32,32,64,42,32,84,79,32,82,69
600 data 83,69,84,32,68,73,83,75,13,13,32,32,158,65,85,84,79
605 data 32,72,69,88,45,69,78,84,82,89,32,65,68,68,69,68,32
610 data 49,49,47,49,47,56,52,32,82,87,75,154
615 data 76,138,207,0,187,187,187,187,13,32,32,18,32,85,78,78,69
620 data 87,32,146,32,65,68,68,69,68,32,56,47,49,54,47,56,52
625 data 32,66,89,32,66,79,66,32,75,79,66,69,82,13,13,0,169
630 data 96,160,207,32,30,171,169,64,141,119,2,169,36,141,120,2,169
635 data 157,141,121,2,169,157,141,122,2,169,4,133,198,76,128,203,187
640 data 160,3,200,177,43,208,251,200,200,152,160,0,145,43,165,44,200
645 data 145,43,133,60,160,0,132,59,162,0,200,208,2,230,60,177,59
650 data 208,245,232,224,3,208,242,200,208,2,230,60,132,45,164,60,132
655 data 46,76,131,164,173,134,2,72,173,33,208,141,134,2,169,252,160
660 data 207,32,30,171,104,141,134,2,32,116,164,82,87,75,0
60000 t$=" ":c=0:c$="":print"[147]":poke53281,0
60030 printspc(7)""t$:printspc(7)" [196]os[208]lus [195]reator [146]"
60051 printspc(7)""t$:print:printtab(18)"by"
60060 print:printspc(14)"[210].[215]. [203]ober"
60070 print:printspc(12)"[195]opyright 1985"
60080 print:print:print:print" [204][207][193][196][211][212][193][210] is not public domain."
60090 print:print" [208]lease respect the author's rights."
60100 print:print" [208]ress space bar to continue."
60110 forcc=1to48:getk$:ifk$=" "then60130
60120 ifcc=1thenprintmid$(c$,c+2,1)"[145][145]";:c=not(c)
60125 next:goto60100
60130 printc$:return